home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / misc / zpoint_3_14.lha / zpoint-3.14 / Rexx / NukeDupes.zprx < prev    next >
Text File  |  1996-01-16  |  698b  |  37 lines
  1. /*
  2.     $VER: NukeDupes.zprx 1.0 (16.1.96) by Ralph Seichter.
  3.  
  4.     Remove duplicate messages (aka 'dupes') from the message base,
  5.     starting at the current board position and moving down in the
  6.     list. If you specify the option ALL, every board below will be
  7.     checked, otherwise only the boards containing new messages are
  8.     processed.
  9. */
  10.  
  11. parse arg zp optstr
  12. if zp = '' then
  13.     zp = 'ZPoint'
  14. optstr = UPPER(COMPRESS(optstr))
  15. address value zp
  16. options results
  17.  
  18. whichlevel
  19. if result ~= 'BOARDMENU' then do
  20.     requestnotify 'Run this script from the board list.'
  21.     exit 5
  22. end
  23.  
  24. more = 1
  25. do while more
  26.     enterboard
  27.     deletedupes
  28.     boardmenu
  29.     if optstr = 'ALL' then
  30.         down
  31.     else
  32.         jumptonew down
  33.     more = rc
  34. end
  35.  
  36. /* EOF */
  37.